function [Eq] = mkt_clr_eq(Lini_grid_norep, Uf_grid, Um_grid, U_f0, U_m0, x, delta_single, g )

Uf_x = interpn(Lini_grid_norep, Uf_grid(g,:), x,'linear'); 
Um_x = interpn(Lini_grid_norep, Um_grid(g,:), x,'linear');

Eq= Uf_x-U_f0(g)-(Um_x-U_m0(g))-delta_single(g);

end
